home *** CD-ROM | disk | FTP | other *** search
/ Cream of the Crop 1 / Cream of the Crop 1.iso / PROGRAM / CTOOLS10.ARJ / STK.H < prev    next >
C/C++ Source or Header  |  1991-10-28  |  2KB  |  68 lines
  1. /****************************************************************************
  2. *
  3. *                    Copyright (C) 1991 Kendall Bennett.
  4. *                            All rights reserved.
  5. *
  6. * Filename:        $RCSfile: stk.h $
  7. * Version:        $Revision: 1.1 $
  8. *
  9. * Language:        ANSI C
  10. * Environment:    any
  11. *
  12. * Description:    Stack maintenance macros. Create downward-growing stacks.
  13. *
  14. * $Id: stk.h 1.1 91/08/16 13:32:27 ROOT_DOS Exp $
  15. *
  16. * Revision History:
  17. * -----------------
  18. *
  19. * $Log:    stk.h $
  20. * Revision 1.1  91/08/16  13:32:27  ROOT_DOS
  21. * Initial revision
  22. * 
  23. ****************************************************************************/
  24.  
  25. #ifndef __STK_H
  26. #define __STK_H
  27.  
  28. #define    stack_cls            /* No stack class defined! */
  29.  
  30. #define    stack_dcl(stack,type,size)    typedef type t_##stack;                \
  31.                                     stack_cls t_##stack stack[size];    \
  32.                                     stack_cls t_##stack (*p_##stack)    \
  33.                                                 = stack + (size)
  34.  
  35. #define    stack_clear(stack)    ( (p_##stack) = (stack +                     \
  36.                                             sizeof(stack)/sizeof(*stack)) )
  37.  
  38. #define    stack_full(stack)    ( (p_##stack) <= stack )
  39. #define    stack_empty(stack)    ( (p_##stack) >= (stack + \
  40.                                             sizeof(stack)/sizeof(*stack)) )
  41.  
  42. #define    stack_ele(stack)    ((sizeof(stack)/sizeof(*stack)) -            \
  43.                                             (p_##stack-stack))
  44.  
  45. #define    stack_item(stack,offset) ( *(p_##stack + (offset)) )
  46. #define    stack_p(stack)        p_##stack
  47.  
  48. #define    push_(stack,x)        ( *--p_##stack = (x) )
  49. #define    pop_(stack)            ( *p_##stack++ )
  50.  
  51. #define    push(stack,x)        ( stack_full(stack)                            \
  52.                                 ? ((t_##stack) (long) (stack_err(1)))    \
  53.                                 : push_(stack,x))
  54.  
  55. #define    pop(stack)            ( stack_empty(stack)                        \
  56.                                 ? ((t_##stack) (long) (stack_err(0)))    \
  57.                                 : pop_(stack))
  58.  
  59. #define    popn_(stack,amt)    ( (p_##stack += amt)[-amt] )
  60. #define    popn(stack,amt)        ( (stack_ele(stack) < amt)                    \
  61.                                 ? ((t_##stack) (long) (stack_err(0)))    \
  62.                                 : popn_(stack,amt))
  63.  
  64. #define    stack_err(o)        ((o) ? ferr("Stack overflow\n")                \
  65.                                  : ferr("Stack underflow\n"))
  66.  
  67. #endif
  68.